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Main Loop: 



While there ore unprocessed instruction groups \ 
Select next instruction group. 

TopOfGroup: 

For eoch instruction in the group: 

switch on instruction_type \ 
cose TypeA: 

TypesA++; 
TypesMIA++; 
break; 
cose TypeM: 

TypesM ++; 
TypesMIA++; 
breok; 
case Type I: 

Typesl++; 
TypesMIA++; 

break; JP T H QA 

case TypeB: r 1 Lr. O/i 

TypesB+ + ; 
break; 
case TypeF: 

TypesF++; 
break; 
case TypeLI: 

TypesLI++; 
break; 
default: 
error; 

i 

TypesALL++; 

/* +/ 

| Test for the a previous incomplete boundle 

+ v 

if INCOMPLETE is not zero \ 
if INCOMPLETE equols M_MI} 
INCOMPLETE = 0; 

if despersal window is large | 
MokeM_MI: 

Template = M_MI; 

take-M; 

toke-l; 

goto StoreBundle; 

I 

remainder = size of instruction group % 3; 

if remainder = 0 then: j 

if TypesI > 0 AND TypesF < TypesF-units AND TypesM+TypesA < 
bundle count then: 

. goto MakeM_MI; 
else 

goto MakeMFB; 
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if remoinder = 1 then: { 

if (Typesl > 0 OR TypesA > 0) AND TypesF < TypesF-units AND 
TypesM+TypesA < bundle count then: 
goto MakeM^MI; 
else 

goto MokeMFB; 
/* remainder = 2 */ 

if (Typesl > 0 OR TypesA > 0) AND TypesF < TypesF-units AND 
TypesM+TypesA >= bundle count then: 
goto MakeM_MI; 



MokeMFB: 



MakeML 



Template = MFB_; 

nop; 

nopb; 

goto StoreBundle; 

/* 

| INCOMPLETE equals MI_I 

+ 

| else | 

INCOMPLETE = 0; 

if despersal window is large { 

J: 

Template = ML I; 
take- 1; 

goto StoreBundle; 

remainder = size of instruction group % 3 
if remainder = 2 then: 
goto MakeMIB; 

if remainder = 0 then: \ 

if Typesl > 0 AND TypesF < TypesF-units 

AND TypesM+TypesA < bundle count then: goto MakeML I; 

else goto MakeMIB; 

i 

/* remainder = 1 */ 

if (Typesl > 0 OR TypesA > 0) AND TypesF < TypesF-units 
AND TypesM+TypesA < bundle count then: goto MakeML I; 



■+/ 

-v 



MakeMIB: 



Template = MIB_; 
nopB; 

goto StoreBundle; 



FIG. 3B 



While TypesALL > Q\ // while instructions remain in group 
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if TypesALL is equal to TypesMIA { 
if TypesALL > 3 } 

if TypesM > Typesl+TypesA then: Template = MMI; take-M;toke-M;take-I 
else template = Mil; take-M;take-l;take-I 
goto StoreBundle; 

i 

if TypesALL = 3 and this is the first bundle of the group) 
if Typesl > 1 then: Template = Mil; tokeM;take-l;take-l 
else template = MMI; take-M;take-l;take-l 
goto StoreBundle; 

I 

if TypesALL = 2 OR TypesALL = 1 and Typesl = 1{ 

if TypesM = 2 then: Template = MMF; take-M;take-M;nop; goto 
StoreBundle; 

else INCOMPLETE = Ml_l toke-M; take-l; goto TopOfGroup 

I 

/* TypesALL = 1 */ 

INCOMPLETE = M_MI take-M; goto TopOfGroup 

i 

if TypesLX > 0 then: Template= MLX; take-M; take-LX; goto StoreBundle; 

if TypesB > 0 AND TypesALL-TypesB < 3 then: { 
if typesF > 0 then: { 

if TypesF+TypesI = 2 then: Template= MFI nop;takeF;take-l; goto 
StoreBundle; 

else Template=MFB take-M;takeF;take-B; goto StoreBundle; 
j else if Typesl > 0 j 
if Typesl = 2 then: Template^ Mil nop;takeF;take-l; goto StoreBundle; 
else Template=MIB take-M;take-I;take-B; goto StoreBundle; 
(else if TypesM = 2 then: Template = MMB take-M;take-M;take-B; goto 
StoreBundle; 

else if TypesALL-TypesB = 2 then: Template = MIB take-M;take-l;take-B; 
goto StoreBundle; 

else if TypesB = 1 then: Template = MFB take-M;takeF;take-B; goto 
StoreBundle; 

else if there are 2 TypesB instructions or 1 non-TypesB: Template = MBB 
take-M;take-B;take-B; goto StoreBundle; 

else Template = BBB take-B;take-B;take-B; goto StoreBundle; 

i 

/* TypesF > 0 */ 

if TypesALL = 3 AND TypesM = 2 then: Template = MMF take-M;take-M takeF; 
goto StoreBundle; 

else Template = MFI take-M;takeF take-l; goto StoreBundle; 

i 

StoreBundle: 

if TypesALL = 0 then: insert stop bit in Template; 
build bundle in code buffer; 

if TypesALL = 0 then: goto MainLoop; __ r> 

else goto TopOGroup; r 1 Cr. o C 

i 

DONE 

if INCOMPLETE is not zero then: \ 

if INCOMPLETE = M_MI then: Templote = MFB; nop; nopB; goto StoreBundle; 
else Template = MIB; nopB; goto StoreBundle; 

I 
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